home *** CD-ROM | disk | FTP | other *** search
/ Cookbook USA: Drips, Dressings & Sauces / Cookbook USA - Drips, Dressings & Sauces (1997)(MicroMedia).iso / ch15 / cbtitle.frm < prev    next >
Text File  |  1996-07-06  |  3KB  |  105 lines
  1. VERSION 2.00
  2. Begin Form frmTitleScreen 
  3.    ClientHeight    =   5715
  4.    ClientLeft      =   2595
  5.    ClientTop       =   2775
  6.    ClientWidth     =   7470
  7.    ClipControls    =   0   'False
  8.    ControlBox      =   0   'False
  9.    Height          =   6120
  10.    Icon            =   CBTITLE.FRX:0000
  11.    Left            =   2535
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5715
  16.    ScaleWidth      =   7470
  17.    Top             =   2430
  18.    Width           =   7590
  19.    Begin Timer Timer1 
  20.       Interval        =   3000
  21.       Left            =   120
  22.       Top             =   120
  23.    End
  24.    Begin Label Label4 
  25.       Alignment       =   2  'Center
  26.       BackColor       =   &H00000000&
  27.       BackStyle       =   0  'Transparent
  28.       Caption         =   "  Version 2.2   (C) 1996"
  29.       ForeColor       =   &H00000000&
  30.       Height          =   255
  31.       Left            =   1080
  32.       TabIndex        =   0
  33.       Top             =   4440
  34.       Width           =   5655
  35.    End
  36.    Begin Label Label3 
  37.       Alignment       =   2  'Center
  38.       BackStyle       =   0  'Transparent
  39.       Caption         =   "CookBook U.S.A."
  40.       FontBold        =   -1  'True
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   18
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       ForeColor       =   &H00000000&
  47.       Height          =   615
  48.       Left            =   1080
  49.       TabIndex        =   2
  50.       Top             =   3945
  51.       Width           =   5655
  52.    End
  53.    Begin Label Label2 
  54.       Alignment       =   2  'Center
  55.       BackColor       =   &H00FFFFFF&
  56.       BackStyle       =   0  'Transparent
  57.       Caption         =   "Over A Million Recipes in the Full Version"
  58.       ForeColor       =   &H0000FFFF&
  59.       Height          =   495
  60.       Left            =   1560
  61.       TabIndex        =   1
  62.       Top             =   3600
  63.       Width           =   4575
  64.    End
  65.    Begin Image Image1 
  66.       Height          =   5775
  67.       Left            =   0
  68.       Picture         =   CBTITLE.FRX:0302
  69.       Stretch         =   -1  'True
  70.       Top             =   0
  71.       Width           =   7455
  72.    End
  73. End
  74. '*********************************************************
  75. 'CBTITLE.FRM
  76. '---------------------------------------------------------
  77. 'CBTitle is the opening screen.  It is the first form to
  78. 'load at run-time, and it displays a picture and the title
  79. 'logo.  After three seconds, timer1 expires, unloading the
  80. 'form and loading frmMain.
  81. Option Explicit
  82.  
  83. Sub Form_Load ()
  84. ' centering the form
  85. Me.Left = (screen.Width - Me.Width) / 2
  86. Me.Top = Abs((screen.Height - Me.Height) / 2)
  87.  
  88. End Sub
  89.  
  90. '--------------------------------------------------------------------------
  91. Sub Timer1_Timer ()
  92.     
  93.     'After the timer has expired, Hide this title screen
  94.     'And display the main screen.
  95.     
  96.     InfoLinkOpen = False
  97.     frmMain.Show
  98.     Hide
  99.     timer1.Enabled = False
  100.     timer1.Interval = 0
  101.     Unload Me
  102.  
  103. End Sub
  104.  
  105.